﻿Imports RTSClassLibraryVB

'Author : Ahmad M. Abdan
'Cration Date : 17/1/2009
'Descreption : Procedure of Material Request Page 

Public Class DBlookup_tableSP
    Inherits DBParentStoredProcedureClass

    Public Operation As New TableField("Operation", Data.SqlDbType.NVarChar)
    Public MAJOR As New TableField("MAJOR", Data.SqlDbType.Int)
    Public MINOR As New TableField("MINOR", Data.SqlDbType.Int)
    Public DescriptionAr As New TableField("DescriptionAr", Data.SqlDbType.NVarChar)
    Public DescriptionEn As New TableField("DescriptionEn", Data.SqlDbType.NVarChar)
    Public OrderID As New TableField("OrderID", Data.SqlDbType.Int)

    Sub New()
        MyBase.StoredProcedureName = "lookup_tableSP"
    End Sub

    Public Shadows Function QueryDatabase(ByVal QueryType As SqlQueryType, _
                                 Optional ByVal Operation As String = "", _
                                 Optional ByVal MAJOR As String = "", _
                                 Optional ByVal MINOR As String = "", _
                                 Optional ByVal DescriptionAr As String = "", _
                                 Optional ByVal DescriptionEn As String = "", _
                                 Optional ByVal OrderID As String = "") As Object
        MyBase.FieldsArrayList = New ArrayList
        Me.Operation.SetValue(Operation, MyBase.FieldsArrayList)
        Me.MAJOR.SetValue(MAJOR, MyBase.FieldsArrayList)
        Me.MINOR.SetValue(MINOR, MyBase.FieldsArrayList)
        Me.DescriptionAr.SetValue(DescriptionAr, MyBase.FieldsArrayList)
        Me.DescriptionEn.SetValue(DescriptionEn, MyBase.FieldsArrayList)
        Me.OrderID.SetValue(OrderID, MyBase.FieldsArrayList)

        Return MyBase.QueryDatabase(QueryType)
    End Function
End Class
